SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE Procedure [dbo].[SP_TDCHEQ_BANC_D01]
/*-------------------------------------------------------*/
/*---Empresa              : OFISIS S.A.                --*/
/*---Cliente              : C.P.P.Q.                  --*/
/*---Sistema              : Tesoreria                  --*/
/*---M÷dulo               : Empresa                    --*/
/*---Programa             : Anulaci¸n (1x1 Detallado)  --*/
/*---                       Distrib. Cheques Bancos    --*/
/*---Script               : tdbanc_p.sql               --*/
/*---Nombre SP            : SP_TDCHEQ_BANC_D01         --*/
/*---Desarrollado por     : Denis Villacr's P.         --*/
/*---Fecha Creaci÷n       : 14/06/2001                 --*/
/*---Base Datos           : Microsoft Sql Server       --*/
/*---Versi÷n              : 7.0                        --*/
/*---Invoca a SP          :                            --*/
/*-------------------------------------------------------*/

/*-------------------------------------------------------*/
/*---Modificado 1 por     :                            --*/
/*---Fecha Modificaci÷n   : 			       --*/ 
/*---Detalle Modificaci÷n : 			       --*/ 
/*---                       		  	       --*/
/*-------------------------------------------------------*/

/*-------------------------------------------------------*/
/*---Comentarios                                       --*/
/*---                                                  --*/
/*---                                                  --*/
/*-------------------------------------------------------*/

/*-------------------------------------------------------*/
/*--- Drop Proc SP_TDCHEQ_BANC_D01                     --*/
/*--- Grant all on SP_TDCHEQ_BANC_D01 to public        --*/ 
/*--- SP_TDCHEQ_BANC_D01 			       --*/
/*-------------------------------------------------------*/
 @ISCO_EMPR 		TD_VC_002, 
 @ISCO_USUA_MODI 	TD_VC_008_USUA,
 @ISCO_BANC 		TD_VC_003, 
 @ISNU_CNTA_BANC 	TD_VC_020,
 @ISAA_BNCO 		TD_VC_004, 
 @ISMM_BNCO 		TD_VC_002, 
 @ISTI_MOVI_BANC 	TD_VC_001,  
 @ISNU_COMP_BANC 	TD_VC_008, 
 @INNU_SECU 		TD_IN_001,
 @ISCO_UNID_CNTB    TD_VC_003
	As
Declare 
   @VNIM_MOVI_ANTE  	TD_NU_016_004,
   @VNIM_TOTA_CHEQ  	TD_NU_016_004

 Begin Tran SP_TDCHEQ_BANC_D01

   	Delete 	TDCHEQ_BANC
   	Where  	CO_EMPR = @ISCO_EMPR
     		And CO_UNID_CONC = @ISCO_UNID_CNTB
     		And CO_BANC = @ISCO_BANC
     		And NU_CNTA_BANC = @ISNU_CNTA_BANC
     		And AA_BNCO = @ISAA_BNCO
     		And MM_BNCO = @ISMM_BNCO
     		And TI_MOVI_BANC = @ISTI_MOVI_BANC
     		And NU_COMP_BANC = @ISNU_COMP_BANC
     		And NU_SECU = @INNU_SECU

     	If @@error <> 0
           Begin
             Rollback tran
             Return
           End    

     	Select 	@VNIM_MOVI_ANTE  = Isnull(IM_MOVI,0) 
     	From   	TCMOVI_BANC
     	Where  	CO_EMPR = @ISCO_EMPR 
     		And CO_UNID_CONC = @ISCO_UNID_CNTB
     		And CO_BANC = @ISCO_BANC 
     		And NU_CNTA_BANC = @ISNU_CNTA_BANC  
     		And AA_BNCO = @ISAA_BNCO
     		And MM_BNCO = @ISMM_BNCO 
     		And TI_MOVI_BANC = @ISTI_MOVI_BANC
     		And NU_COMP_BANC = @ISNU_COMP_BANC 


     /* Sumo todos los Cheques */
     	Select 	@VNIM_TOTA_CHEQ = IsNull(Sum(Isnull(IM_CONV,0)),0)
     	From   	TDCHEQ_BANC
	    Where CO_EMPR = @ISCO_EMPR
     		And CO_UNID_CONC = @ISCO_UNID_CNTB
	     	And CO_BANC = @ISCO_BANC
     		And NU_CNTA_BANC = @ISNU_CNTA_BANC
      		And AA_BNCO = @ISAA_BNCO
     		And MM_BNCO = @ISMM_BNCO
     		And TI_MOVI_BANC = @ISTI_MOVI_BANC
     		And NU_COMP_BANC = @ISNU_COMP_BANC


     /* Actualizo Cabecera Bancos */
     	Update 	TCMOVI_BANC
     	Set IM_MOVI = Round(@VNIM_TOTA_CHEQ,2),
         	CO_USUA_MODI = @ISCO_USUA_MODI, 
		    FE_USUA_MODI = Getdate()         
     	Where 	CO_EMPR = @ISCO_EMPR 
     		And CO_UNID_CONC = @ISCO_UNID_CNTB
     		And CO_BANC = @ISCO_BANC 
     		And NU_CNTA_BANC = @ISNU_CNTA_BANC 
     		And AA_BNCO = @ISAA_BNCO
     		And MM_BNCO = @ISMM_BNCO 
     		And TI_MOVI_BANC = @ISTI_MOVI_BANC 
     		And NU_COMP_BANC = @ISNU_COMP_BANC 

     If @@error <> 0
        Begin
          Rollback tran
	    Return
        End  

Commit Tran
/*------------------------ Fin ------------------------------*/


GO
